home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / ALL_IN_ONE2109644152008.psc / SEND CODE / frmLogin_Lib.frm < prev    next >
Text File  |  2008-04-15  |  69KB  |  1,968 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
  4. Begin VB.Form frmLogin_Lib 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H00E0E0E0&
  7.    Caption         =   $"frmLogin_Lib.frx":0000
  8.    ClientHeight    =   6825
  9.    ClientLeft      =   60
  10.    ClientTop       =   1515
  11.    ClientWidth     =   9975
  12.    ClipControls    =   0   'False
  13.    ControlBox      =   0   'False
  14.    Icon            =   "frmLogin_Lib.frx":00D4
  15.    LinkTopic       =   "Form1"
  16.    Moveable        =   0   'False
  17.    Picture         =   "frmLogin_Lib.frx":099E
  18.    ScaleHeight     =   6825
  19.    ScaleWidth      =   9975
  20.    StartUpPosition =   2  'CenterScreen
  21.    WindowState     =   2  'Maximized
  22.    Begin VB.Frame frameupdatetotalsublogin 
  23.       BackColor       =   &H00C0C0C0&
  24.       BorderStyle     =   0  'None
  25.       Caption         =   "Change Max Sub Login"
  26.       BeginProperty Font 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   700
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       ForeColor       =   &H00000000&
  36.       Height          =   2295
  37.       Left            =   0
  38.       TabIndex        =   40
  39.       Top             =   6960
  40.       Visible         =   0   'False
  41.       Width           =   5775
  42.       Begin VB.TextBox txtSubLoginMax_ChangeMaxSubLogin 
  43.          Alignment       =   2  'Center
  44.          Height          =   315
  45.          Left            =   2040
  46.          TabIndex        =   45
  47.          Top             =   1200
  48.          Width           =   2055
  49.       End
  50.       Begin VB.TextBox txtPasswordChangeMaxSubLogin 
  51.          Alignment       =   2  'Center
  52.          Height          =   315
  53.          IMEMode         =   3  'DISABLE
  54.          Left            =   2040
  55.          PasswordChar    =   "*"
  56.          TabIndex        =   44
  57.          Top             =   840
  58.          Width           =   2055
  59.       End
  60.       Begin VB.TextBox txtAdminNameChangeMaxSubLogin 
  61.          Alignment       =   2  'Center
  62.          Height          =   315
  63.          Left            =   2040
  64.          TabIndex        =   43
  65.          Top             =   480
  66.          Width           =   2055
  67.       End
  68.       Begin VB.CommandButton cmdMaxSubLogin 
  69.          BackColor       =   &H00FFFFFF&
  70.          BeginProperty Font 
  71.             Name            =   "MS Sans Serif"
  72.             Size            =   8.25
  73.             Charset         =   0
  74.             Weight          =   700
  75.             Underline       =   0   'False
  76.             Italic          =   0   'False
  77.             Strikethrough   =   0   'False
  78.          EndProperty
  79.          Height          =   375
  80.          Left            =   2640
  81.          Picture         =   "frmLogin_Lib.frx":23B5C0
  82.          Style           =   1  'Graphical
  83.          TabIndex        =   42
  84.          ToolTipText     =   "OK"
  85.          Top             =   1680
  86.          Width           =   1455
  87.       End
  88.       Begin VB.CommandButton cmdunload 
  89.          BackColor       =   &H00FFFFFF&
  90.          Caption         =   "&Exit"
  91.          BeginProperty Font 
  92.             Name            =   "MS Sans Serif"
  93.             Size            =   8.25
  94.             Charset         =   0
  95.             Weight          =   700
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.          Height          =   375
  101.          Left            =   4200
  102.          Style           =   1  'Graphical
  103.          TabIndex        =   41
  104.          ToolTipText     =   "OK"
  105.          Top             =   1680
  106.          Width           =   1455
  107.       End
  108.       Begin VB.Label Label5 
  109.          BackColor       =   &H00FF8080&
  110.          BorderStyle     =   1  'Fixed Single
  111.          Caption         =   "Change Max Sub Login"
  112.          BeginProperty Font 
  113.             Name            =   "MS Sans Serif"
  114.             Size            =   8.25
  115.             Charset         =   0
  116.             Weight          =   700
  117.             Underline       =   0   'False
  118.             Italic          =   0   'False
  119.             Strikethrough   =   0   'False
  120.          EndProperty
  121.          ForeColor       =   &H00800080&
  122.          Height          =   255
  123.          Left            =   1560
  124.          TabIndex        =   49
  125.          Top             =   0
  126.          Width           =   2175
  127.       End
  128.       Begin VB.Shape Shape1 
  129.          BackColor       =   &H00FF8080&
  130.          BorderColor     =   &H00FF8080&
  131.          Height          =   2295
  132.          Left            =   0
  133.          Top             =   0
  134.          Width           =   5775
  135.       End
  136.       Begin VB.Label Label6 
  137.          AutoSize        =   -1  'True
  138.          BackColor       =   &H00E7C9D2&
  139.          BackStyle       =   0  'Transparent
  140.          Caption         =   "Total Sub Login"
  141.          BeginProperty Font 
  142.             Name            =   "MS Sans Serif"
  143.             Size            =   8.25
  144.             Charset         =   0
  145.             Weight          =   700
  146.             Underline       =   0   'False
  147.             Italic          =   0   'False
  148.             Strikethrough   =   0   'False
  149.          EndProperty
  150.          ForeColor       =   &H006C3676&
  151.          Height          =   195
  152.          Left            =   360
  153.          TabIndex        =   48
  154.          Top             =   1200
  155.          Width           =   1365
  156.       End
  157.       Begin VB.Label Label7 
  158.          AutoSize        =   -1  'True
  159.          BackColor       =   &H00E7C9D2&
  160.          BackStyle       =   0  'Transparent
  161.          Caption         =   "Admin Name"
  162.          BeginProperty Font 
  163.             Name            =   "MS Sans Serif"
  164.             Size            =   8.25
  165.             Charset         =   0
  166.             Weight          =   700
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          ForeColor       =   &H006C3676&
  172.          Height          =   195
  173.          Left            =   360
  174.          TabIndex        =   47
  175.          Top             =   480
  176.          Width           =   1065
  177.       End
  178.       Begin VB.Label Label8 
  179.          AutoSize        =   -1  'True
  180.          BackColor       =   &H00E7C9D2&
  181.          BackStyle       =   0  'Transparent
  182.          Caption         =   "Password"
  183.          BeginProperty Font 
  184.             Name            =   "MS Sans Serif"
  185.             Size            =   8.25
  186.             Charset         =   0
  187.             Weight          =   700
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          ForeColor       =   &H006C3676&
  193.          Height          =   195
  194.          Left            =   360
  195.          TabIndex        =   46
  196.          Top             =   840
  197.          Width           =   825
  198.       End
  199.    End
  200.    Begin VB.Frame FrameAdminLogin 
  201.       BackColor       =   &H00E0E0E0&
  202.       BorderStyle     =   0  'None
  203.       Height          =   2535
  204.       Left            =   3240
  205.       TabIndex        =   39
  206.       Top             =   3360
  207.       Visible         =   0   'False
  208.       Width           =   4455
  209.       Begin VB.TextBox txtAdminNameL 
  210.          Alignment       =   2  'Center
  211.          Height          =   315
  212.          Left            =   1920
  213.          TabIndex        =   52
  214.          Top             =   720
  215.          Width           =   2175
  216.       End
  217.       Begin VB.TextBox txtPasswordL 
  218.          Alignment       =   2  'Center
  219.          Height          =   315
  220.          IMEMode         =   3  'DISABLE
  221.          Left            =   1920
  222.          PasswordChar    =   "*"
  223.          TabIndex        =   51
  224.          Top             =   1080
  225.          Width           =   2175
  226.       End
  227.       Begin VB.CommandButton cmdOkL 
  228.          BackColor       =   &H00FFFFFF&
  229.          BeginProperty Font 
  230.             Name            =   "MS Sans Serif"
  231.             Size            =   8.25
  232.             Charset         =   0
  233.             Weight          =   700
  234.             Underline       =   0   'False
  235.             Italic          =   0   'False
  236.             Strikethrough   =   0   'False
  237.          EndProperty
  238.          Height          =   375
  239.          Left            =   1560
  240.          Picture         =   "frmLogin_Lib.frx":23BA02
  241.          Style           =   1  'Graphical
  242.          TabIndex        =   50
  243.          ToolTipText     =   "OK"
  244.          Top             =   1560
  245.          Width           =   1455
  246.       End
  247.       Begin VB.Label Label14 
  248.          AutoSize        =   -1  'True
  249.          BackColor       =   &H00E7C9D2&
  250.          BackStyle       =   0  'Transparent
  251.          Caption         =   "Admin Name"
  252.          BeginProperty Font 
  253.             Name            =   "MS Sans Serif"
  254.             Size            =   8.25
  255.             Charset         =   0
  256.             Weight          =   700
  257.             Underline       =   0   'False
  258.             Italic          =   0   'False
  259.             Strikethrough   =   0   'False
  260.          EndProperty
  261.          ForeColor       =   &H006C3676&
  262.          Height          =   195
  263.          Left            =   480
  264.          TabIndex        =   55
  265.          Top             =   720
  266.          Width           =   1065
  267.       End
  268.       Begin VB.Label Label13 
  269.          AutoSize        =   -1  'True
  270.          BackColor       =   &H00E7C9D2&
  271.          BackStyle       =   0  'Transparent
  272.          Caption         =   "Password"
  273.          BeginProperty Font 
  274.             Name            =   "MS Sans Serif"
  275.             Size            =   8.25
  276.             Charset         =   0
  277.             Weight          =   700
  278.             Underline       =   0   'False
  279.             Italic          =   0   'False
  280.             Strikethrough   =   0   'False
  281.          EndProperty
  282.          ForeColor       =   &H006C3676&
  283.          Height          =   195
  284.          Left            =   480
  285.          TabIndex        =   54
  286.          Top             =   1080
  287.          Width           =   825
  288.       End
  289.       Begin VB.Label Label9 
  290.          Alignment       =   2  'Center
  291.          BackColor       =   &H00E7C9D2&
  292.          BackStyle       =   0  'Transparent
  293.          Caption         =   "Admin Login"
  294.          BeginProperty Font 
  295.             Name            =   "MS Sans Serif"
  296.             Size            =   8.25
  297.             Charset         =   0
  298.             Weight          =   700
  299.             Underline       =   0   'False
  300.             Italic          =   0   'False
  301.             Strikethrough   =   0   'False
  302.          EndProperty
  303.          ForeColor       =   &H006C3676&
  304.          Height          =   240
  305.          Left            =   480
  306.          TabIndex        =   53
  307.          Top             =   360
  308.          Width           =   3690
  309.       End
  310.       Begin VB.Shape Shape7 
  311.          BorderColor     =   &H00FF8080&
  312.          Height          =   2295
  313.          Left            =   120
  314.          Top             =   120
  315.          Width           =   4215
  316.       End
  317.       Begin VB.Image Image7 
  318.          Height          =   9645
  319.          Left            =   0
  320.          Picture         =   "frmLogin_Lib.frx":23BE44
  321.          Top             =   0
  322.          Width           =   5100
  323.       End
  324.    End
  325.    Begin VB.Frame frameUSerPasswordGeneration 
  326.       BackColor       =   &H00E0E0E0&
  327.       BorderStyle     =   0  'None
  328.       Caption         =   "User Password Genetation"
  329.       BeginProperty Font 
  330.          Name            =   "MS Sans Serif"
  331.          Size            =   8.25
  332.          Charset         =   0
  333.          Weight          =   700
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       ForeColor       =   &H00000000&
  339.       Height          =   2295
  340.       Left            =   5880
  341.       TabIndex        =   28
  342.       Top             =   6840
  343.       Visible         =   0   'False
  344.       Width           =   5655
  345.       Begin VB.TextBox txtREPasswordG 
  346.          Alignment       =   2  'Center
  347.          Height          =   315
  348.          IMEMode         =   3  'DISABLE
  349.          Left            =   2520
  350.          PasswordChar    =   "*"
  351.          TabIndex        =   34
  352.          Top             =   960
  353.          Width           =   2775
  354.       End
  355.       Begin VB.TextBox txtPasswordG 
  356.          Alignment       =   2  'Center
  357.          Height          =   315
  358.          IMEMode         =   3  'DISABLE
  359.          Left            =   2520
  360.          PasswordChar    =   "*"
  361.          TabIndex        =   33
  362.          Top             =   600
  363.          Width           =   2775
  364.       End
  365.       Begin VB.TextBox txtUserNameG 
  366.          Alignment       =   2  'Center
  367.          Height          =   315
  368.          Left            =   2520
  369.          TabIndex        =   32
  370.          Top             =   240
  371.          Width           =   2775
  372.       End
  373.       Begin VB.CommandButton cmdOkG 
  374.          BackColor       =   &H00FFFFFF&
  375.          BeginProperty Font 
  376.             Name            =   "MS Sans Serif"
  377.             Size            =   8.25
  378.             Charset         =   0
  379.             Weight          =   700
  380.             Underline       =   0   'False
  381.             Italic          =   0   'False
  382.             Strikethrough   =   0   'False
  383.          EndProperty
  384.          Height          =   375
  385.          Left            =   1080
  386.          Picture         =   "frmLogin_Lib.frx":2DC07A
  387.          Style           =   1  'Graphical
  388.          TabIndex        =   31
  389.          ToolTipText     =   "OK"
  390.          Top             =   1800
  391.          Width           =   1455
  392.       End
  393.       Begin VB.CommandButton cmdExit 
  394.          BackColor       =   &H00FFFFFF&
  395.          BeginProperty Font 
  396.             Name            =   "MS Sans Serif"
  397.             Size            =   8.25
  398.             Charset         =   0
  399.             Weight          =   700
  400.             Underline       =   0   'False
  401.             Italic          =   0   'False
  402.             Strikethrough   =   0   'False
  403.          EndProperty
  404.          Height          =   375
  405.          Left            =   2880
  406.          Picture         =   "frmLogin_Lib.frx":2DC4BC
  407.          Style           =   1  'Graphical
  408.          TabIndex        =   30
  409.          ToolTipText     =   "Exit"
  410.          Top             =   1800
  411.          Width           =   1455
  412.       End
  413.       Begin VB.ComboBox cmbPriv 
  414.          Height          =   315
  415.          Left            =   2520
  416.          Style           =   2  'Dropdown List
  417.          TabIndex        =   29
  418.          Top             =   1320
  419.          Width           =   2775
  420.       End
  421.       Begin VB.Shape Shape2 
  422.          BorderColor     =   &H00FF8080&
  423.          Height          =   2295
  424.          Left            =   0
  425.          Top             =   0
  426.          Width           =   5655
  427.       End
  428.       Begin VB.Label Label16 
  429.          Alignment       =   2  'Center
  430.          BackColor       =   &H00FF8080&
  431.          BorderStyle     =   1  'Fixed Single
  432.          Caption         =   "User Password Genetation"
  433.          BeginProperty Font 
  434.             Name            =   "MS Sans Serif"
  435.             Size            =   8.25
  436.             Charset         =   0
  437.             Weight          =   700
  438.             Underline       =   0   'False
  439.             Italic          =   0   'False
  440.             Strikethrough   =   0   'False
  441.          EndProperty
  442.          ForeColor       =   &H00800080&
  443.          Height          =   255
  444.          Left            =   0
  445.          TabIndex        =   56
  446.          Top             =   0
  447.          Width           =   5655
  448.       End
  449.       Begin VB.Label Label10 
  450.          AutoSize        =   -1  'True
  451.          BackColor       =   &H00E7C9D2&
  452.          BackStyle       =   0  'Transparent
  453.          Caption         =   "User Name"
  454.          BeginProperty Font 
  455.             Name            =   "MS Sans Serif"
  456.             Size            =   8.25
  457.             Charset         =   0
  458.             Weight          =   700
  459.             Underline       =   0   'False
  460.             Italic          =   0   'False
  461.             Strikethrough   =   0   'False
  462.          EndProperty
  463.          ForeColor       =   &H006C3676&
  464.          Height          =   195
  465.          Left            =   120
  466.          TabIndex        =   38
  467.          Top             =   240
  468.          Width           =   945
  469.       End
  470.       Begin VB.Label Label11 
  471.          AutoSize        =   -1  'True
  472.          BackColor       =   &H00E7C9D2&
  473.          BackStyle       =   0  'Transparent
  474.          Caption         =   "Password"
  475.          BeginProperty Font 
  476.             Name            =   "MS Sans Serif"
  477.             Size            =   8.25
  478.             Charset         =   0
  479.             Weight          =   700
  480.             Underline       =   0   'False
  481.             Italic          =   0   'False
  482.             Strikethrough   =   0   'False
  483.          EndProperty
  484.          ForeColor       =   &H006C3676&
  485.          Height          =   195
  486.          Left            =   120
  487.          TabIndex        =   37
  488.          Top             =   600
  489.          Width           =   825
  490.       End
  491.       Begin VB.Label Label12 
  492.          AutoSize        =   -1  'True
  493.          BackColor       =   &H00E7C9D2&
  494.          BackStyle       =   0  'Transparent
  495.          Caption         =   "ReType Password"
  496.          BeginProperty Font 
  497.             Name            =   "MS Sans Serif"
  498.             Size            =   8.25
  499.             Charset         =   0
  500.             Weight          =   700
  501.             Underline       =   0   'False
  502.             Italic          =   0   'False
  503.             Strikethrough   =   0   'False
  504.          EndProperty
  505.          ForeColor       =   &H006C3676&
  506.          Height          =   195
  507.          Left            =   120
  508.          TabIndex        =   36
  509.          Top             =   960
  510.          Width           =   1545
  511.       End
  512.       Begin VB.Label Label15 
  513.          AutoSize        =   -1  'True
  514.          BackColor       =   &H00E7C9D2&
  515.          BackStyle       =   0  'Transparent
  516.          Caption         =   "Privilages"
  517.          BeginProperty Font 
  518.             Name            =   "MS Sans Serif"
  519.             Size            =   8.25
  520.             Charset         =   0
  521.             Weight          =   700
  522.             Underline       =   0   'False
  523.             Italic          =   0   'False
  524.             Strikethrough   =   0   'False
  525.          EndProperty
  526.          ForeColor       =   &H006C3676&
  527.          Height          =   195
  528.          Left            =   120
  529.          TabIndex        =   35
  530.          Top             =   1320
  531.          Width           =   840
  532.       End
  533.    End
  534.    Begin VB.PictureBox Picture3 
  535.       BackColor       =   &H00E0E0E0&
  536.       BorderStyle     =   0  'None
  537.       Height          =   1215
  538.       Left            =   0
  539.       Picture         =   "frmLogin_Lib.frx":2DC8FE
  540.       ScaleHeight     =   1215
  541.       ScaleWidth      =   15480
  542.       TabIndex        =   26
  543.       Top             =   9720
  544.       Width           =   15480
  545.    End
  546.    Begin VB.PictureBox Picture1 
  547.       BackColor       =   &H00E0E0E0&
  548.       BorderStyle     =   0  'None
  549.       Height          =   975
  550.       Left            =   -120
  551.       Picture         =   "frmLogin_Lib.frx":340A44
  552.       ScaleHeight     =   975
  553.       ScaleWidth      =   15480
  554.       TabIndex        =   25
  555.       Top             =   0
  556.       Width           =   15480
  557.       Begin VB.Line Line1 
  558.          BorderColor     =   &H000000FF&
  559.          X1              =   -360
  560.          X2              =   15960
  561.          Y1              =   960
  562.          Y2              =   960
  563.       End
  564.    End
  565.    Begin VB.Frame Frame3 
  566.       BackColor       =   &H00E0E0E0&
  567.       Height          =   855
  568.       Left            =   120
  569.       TabIndex        =   20
  570.       Top             =   7560
  571.       Width           =   5655
  572.       Begin VB.CommandButton Command2 
  573.          BackColor       =   &H00C0C0C0&
  574.          BeginProperty Font 
  575.             Name            =   "MS Sans Serif"
  576.             Size            =   8.25
  577.             Charset         =   0
  578.             Weight          =   700
  579.             Underline       =   0   'False
  580.             Italic          =   0   'False
  581.             Strikethrough   =   0   'False
  582.          EndProperty
  583.          Height          =   360
  584.          Left            =   4320
  585.          Picture         =   "frmLogin_Lib.frx":3A4B8A
  586.          Style           =   1  'Graphical
  587.          TabIndex        =   24
  588.          ToolTipText     =   "Exit"
  589.          Top             =   120
  590.          Width           =   1455
  591.       End
  592.       Begin VB.CommandButton cmdUpdateTotalSubLogin 
  593.          BackColor       =   &H00C0C0C0&
  594.          Enabled         =   0   'False
  595.          BeginProperty Font 
  596.             Name            =   "MS Sans Serif"
  597.             Size            =   8.25
  598.             Charset         =   0
  599.             Weight          =   700
  600.             Underline       =   0   'False
  601.             Italic          =   0   'False
  602.             Strikethrough   =   0   'False
  603.          EndProperty
  604.          Height          =   375
  605.          Left            =   3000
  606.          Picture         =   "frmLogin_Lib.frx":3A4FCC
  607.          Style           =   1  'Graphical
  608.          TabIndex        =   23
  609.          ToolTipText     =   "Change Max Sub Login"
  610.          Top             =   120
  611.          Width           =   1215
  612.       End
  613.       Begin VB.CommandButton cmdUpdate 
  614.          BackColor       =   &H00C0C0C0&
  615.          BeginProperty Font 
  616.             Name            =   "MS Sans Serif"
  617.             Size            =   8.25
  618.             Charset         =   0
  619.             Weight          =   700
  620.             Underline       =   0   'False
  621.             Italic          =   0   'False
  622.             Strikethrough   =   0   'False
  623.          EndProperty
  624.          Height          =   375
  625.          Left            =   1560
  626.          Picture         =   "frmLogin_Lib.frx":3A540E
  627.          Style           =   1  'Graphical
  628.          TabIndex        =   22
  629.          ToolTipText     =   "Change Password"
  630.          Top             =   120
  631.          Width           =   1335
  632.       End
  633.       Begin VB.CommandButton cmdTrapeDoor 
  634.          Caption         =   "Command1"
  635.          Enabled         =   0   'False
  636.          Height          =   255
  637.          Left            =   5760
  638.          TabIndex        =   21
  639.          Top             =   1320
  640.          Visible         =   0   'False
  641.          Width           =   1695
  642.       End
  643.    End
  644.    Begin VB.PictureBox Picture2 
  645.       BorderStyle     =   0  'None
  646.       Height          =   2175
  647.       Left            =   8520
  648.       Picture         =   "frmLogin_Lib.frx":3A5850
  649.       ScaleHeight     =   2175
  650.       ScaleWidth      =   5055
  651.       TabIndex        =   13
  652.       Top             =   1920
  653.       Width           =   5055
  654.       Begin VB.CommandButton cmdOK 
  655.          BackColor       =   &H00E0E0E0&
  656.          Height          =   495
  657.          Left            =   3960
  658.          MaskColor       =   &H00808080&
  659.          Picture         =   "frmLogin_Lib.frx":445A86
  660.          Style           =   1  'Graphical
  661.          TabIndex        =   27
  662.          ToolTipText     =   "OK"
  663.          Top             =   1560
  664.          Width           =   975
  665.       End
  666.       Begin VB.TextBox txtReTypePassword 
  667.          Alignment       =   2  'Center
  668.          Height          =   315
  669.          IMEMode         =   3  'DISABLE
  670.          Left            =   2160
  671.          PasswordChar    =   "*"
  672.          TabIndex        =   16
  673.          Top             =   1200
  674.          Visible         =   0   'False
  675.          Width           =   2775
  676.       End
  677.       Begin VB.TextBox txtPassword 
  678.          Alignment       =   2  'Center
  679.          Height          =   315
  680.          IMEMode         =   3  'DISABLE
  681.          Left            =   2160
  682.          PasswordChar    =   "*"
  683.          TabIndex        =   15
  684.          Top             =   840
  685.          Width           =   2775
  686.       End
  687.       Begin VB.TextBox txtName 
  688.          Alignment       =   2  'Center
  689.          Height          =   315
  690.          Left            =   2160
  691.          TabIndex        =   14
  692.          Top             =   480
  693.          Width           =   2775
  694.       End
  695.       Begin VB.Shape Shape8 
  696.          BorderColor     =   &H00FF8080&
  697.          Height          =   2175
  698.          Left            =   0
  699.          Top             =   0
  700.          Width           =   5055
  701.       End
  702.       Begin VB.Image Image1 
  703.          Height          =   255
  704.          Left            =   2160
  705.          Picture         =   "frmLogin_Lib.frx":4466F8
  706.          Top             =   0
  707.          Width           =   750
  708.       End
  709.       Begin VB.Label Labe1 
  710.          AutoSize        =   -1  'True
  711.          BackColor       =   &H00E7C9D2&
  712.          BackStyle       =   0  'Transparent
  713.          Caption         =   "User &Name"
  714.          BeginProperty Font 
  715.             Name            =   "MS Sans Serif"
  716.             Size            =   8.25
  717.             Charset         =   0
  718.             Weight          =   700
  719.             Underline       =   0   'False
  720.             Italic          =   0   'False
  721.             Strikethrough   =   0   'False
  722.          EndProperty
  723.          ForeColor       =   &H00800080&
  724.          Height          =   195
  725.          Left            =   120
  726.          TabIndex        =   19
  727.          Top             =   480
  728.          Width           =   945
  729.       End
  730.       Begin VB.Label Label2 
  731.          AutoSize        =   -1  'True
  732.          BackColor       =   &H00E7C9D2&
  733.          BackStyle       =   0  'Transparent
  734.          Caption         =   "&Password"
  735.          BeginProperty Font 
  736.             Name            =   "MS Sans Serif"
  737.             Size            =   8.25
  738.             Charset         =   0
  739.             Weight          =   700
  740.             Underline       =   0   'False
  741.             Italic          =   0   'False
  742.             Strikethrough   =   0   'False
  743.          EndProperty
  744.          ForeColor       =   &H00800080&
  745.          Height          =   195
  746.          Left            =   120
  747.          TabIndex        =   18
  748.          Top             =   840
  749.          Width           =   825
  750.       End
  751.       Begin VB.Label Label3 
  752.          AutoSize        =   -1  'True
  753.          BackColor       =   &H00E7C9D2&
  754.          BackStyle       =   0  'Transparent
  755.          Caption         =   "&ReType Password"
  756.          BeginProperty Font 
  757.             Name            =   "MS Sans Serif"
  758.             Size            =   8.25
  759.             Charset         =   0
  760.             Weight          =   700
  761.             Underline       =   0   'False
  762.             Italic          =   0   'False
  763.             Strikethrough   =   0   'False
  764.          EndProperty
  765.          ForeColor       =   &H00800080&
  766.          Height          =   195
  767.          Left            =   120
  768.          TabIndex        =   17
  769.          Top             =   1200
  770.          Visible         =   0   'False
  771.          Width           =   1545
  772.       End
  773.    End
  774.    Begin VB.TextBox Text1 
  775.       Height          =   285
  776.       Left            =   120
  777.       TabIndex        =   12
  778.       Text            =   "Text1"
  779.       Top             =   10440
  780.       Width           =   255
  781.    End
  782.    Begin MSComctlLib.ImageList ImageList1 
  783.       Left            =   2640
  784.       Top             =   120
  785.       _ExtentX        =   1005
  786.       _ExtentY        =   1005
  787.       BackColor       =   -2147483643
  788.       ImageWidth      =   16
  789.       ImageHeight     =   16
  790.       MaskColor       =   12632256
  791.       _Version        =   393216
  792.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  793.          NumListImages   =   2
  794.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  795.             Picture         =   "frmLogin_Lib.frx":446876
  796.             Key             =   ""
  797.          EndProperty
  798.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  799.             Picture         =   "frmLogin_Lib.frx":446CC8
  800.             Key             =   ""
  801.          EndProperty
  802.       EndProperty
  803.    End
  804.    Begin VB.CommandButton Command1 
  805.       Caption         =   "Command1"
  806.       Enabled         =   0   'False
  807.       Height          =   195
  808.       Left            =   6600
  809.       TabIndex        =   11
  810.       Top             =   8760
  811.       Visible         =   0   'False
  812.       Width           =   615
  813.    End
  814.    Begin VB.Frame framenewAdmin 
  815.       BackColor       =   &H00E0E0E0&
  816.       BorderStyle     =   0  'None
  817.       Caption         =   "New Administrator"
  818.       BeginProperty Font 
  819.          Name            =   "MS Sans Serif"
  820.          Size            =   9.75
  821.          Charset         =   0
  822.          Weight          =   400
  823.          Underline       =   0   'False
  824.          Italic          =   0   'False
  825.          Strikethrough   =   0   'False
  826.       EndProperty
  827.       ForeColor       =   &H006C3676&
  828.       Height          =   2175
  829.       Left            =   7920
  830.       TabIndex        =   10
  831.       Top             =   4440
  832.       Visible         =   0   'False
  833.       Width           =   5895
  834.       Begin VB.TextBox txtTotalSubLogin 
  835.          Alignment       =   2  'Center
  836.          Height          =   315
  837.          Left            =   2520
  838.          TabIndex        =   6
  839.          Top             =   1320
  840.          Width           =   2775
  841.       End
  842.       Begin VB.TextBox txtNEwReTypePassword 
  843.          Alignment       =   2  'Center
  844.          Height          =   315
  845.          IMEMode         =   3  'DISABLE
  846.          Left            =   2520
  847.          PasswordChar    =   "*"
  848.          TabIndex        =   4
  849.          Top             =   960
  850.          Width           =   2775
  851.       End
  852.       Begin VB.TextBox txtNewPassword 
  853.          Alignment       =   2  'Center
  854.          Height          =   315
  855.          IMEMode         =   3  'DISABLE
  856.          Left            =   2520
  857.          PasswordChar    =   "*"
  858.          TabIndex        =   2
  859.          Top             =   600
  860.          Width           =   2775
  861.       End
  862.       Begin VB.TextBox txtNewName 
  863.          Alignment       =   2  'Center
  864.          Height          =   315
  865.          Left            =   2520
  866.          TabIndex        =   0
  867.          Top             =   240
  868.          Width           =   2775
  869.       End
  870.       Begin VB.CommandButton cmdChangeNew 
  871.          BackColor       =   &H00FFFFFF&
  872.          BeginProperty Font 
  873.             Name            =   "MS Sans Serif"
  874.             Size            =   8.25
  875.             Charset         =   0
  876.             Weight          =   700
  877.             Underline       =   0   'False
  878.             Italic          =   0   'False
  879.             Strikethrough   =   0   'False
  880.          EndProperty
  881.          Height          =   375
  882.          Left            =   3360
  883.          Picture         =   "frmLogin_Lib.frx":44711A
  884.          Style           =   1  'Graphical
  885.          TabIndex        =   8
  886.          ToolTipText     =   "Change Password"
  887.          Top             =   1680
  888.          Width           =   1335
  889.       End
  890.       Begin VB.CommandButton cmdOkNew 
  891.          BackColor       =   &H00FFFFFF&
  892.          BeginProperty Font 
  893.             Name            =   "MS Sans Serif"
  894.             Size            =   8.25
  895.             Charset         =   0
  896.             Weight          =   700
  897.             Underline       =   0   'False
  898.             Italic          =   0   'False
  899.             Strikethrough   =   0   'False
  900.          EndProperty
  901.          Height          =   375
  902.          Left            =   1080
  903.          Picture         =   "frmLogin_Lib.frx":44755C
  904.          Style           =   1  'Graphical
  905.          TabIndex        =   7
  906.          ToolTipText     =   "OK"
  907.          Top             =   1680
  908.          Width           =   1455
  909.       End
  910.       Begin VB.Shape Shape3 
  911.          BorderColor     =   &H00FF8080&
  912.          Height          =   2175
  913.          Left            =   0
  914.          Top             =   0
  915.          Width           =   5895
  916.       End
  917.       Begin VB.Label Label17 
  918.          Alignment       =   2  'Center
  919.          BackColor       =   &H00808080&
  920.          BorderStyle     =   1  'Fixed Single
  921.          Caption         =   "New Administrator"
  922.          BeginProperty Font 
  923.             Name            =   "MS Sans Serif"
  924.             Size            =   8.25
  925.             Charset         =   0
  926.             Weight          =   700
  927.             Underline       =   0   'False
  928.             Italic          =   0   'False
  929.             Strikethrough   =   0   'False
  930.          EndProperty
  931.          ForeColor       =   &H00800080&
  932.          Height          =   255
  933.          Left            =   0
  934.          TabIndex        =   57
  935.          Top             =   0
  936.          Width           =   5895
  937.       End
  938.       Begin VB.Label lblTotalSubLogin 
  939.          AutoSize        =   -1  'True
  940.          BackColor       =   &H00E7C9D2&
  941.          BackStyle       =   0  'Transparent
  942.          Caption         =   "Total Sub Login"
  943.          BeginProperty Font 
  944.             Name            =   "MS Sans Serif"
  945.             Size            =   9.75
  946.             Charset         =   0
  947.             Weight          =   700
  948.             Underline       =   0   'False
  949.             Italic          =   0   'False
  950.             Strikethrough   =   0   'False
  951.          EndProperty
  952.          ForeColor       =   &H006C3676&
  953.          Height          =   240
  954.          Left            =   120
  955.          TabIndex        =   5
  956.          Top             =   1320
  957.          Width           =   1650
  958.       End
  959.       Begin VB.Label Label4 
  960.          AutoSize        =   -1  'True
  961.          BackColor       =   &H00E7C9D2&
  962.          BackStyle       =   0  'Transparent
  963.          Caption         =   "Password"
  964.          BeginProperty Font 
  965.             Name            =   "MS Sans Serif"
  966.             Size            =   9.75
  967.             Charset         =   0
  968.             Weight          =   700
  969.             Underline       =   0   'False
  970.             Italic          =   0   'False
  971.             Strikethrough   =   0   'False
  972.          EndProperty
  973.          ForeColor       =   &H006C3676&
  974.          Height          =   240
  975.          Left            =   120
  976.          TabIndex        =   1
  977.          Top             =   600
  978.          Width           =   1035
  979.       End
  980.       Begin VB.Label Label1 
  981.          AutoSize        =   -1  'True
  982.          BackColor       =   &H00E7C9D2&
  983.          BackStyle       =   0  'Transparent
  984.          Caption         =   "ReType Password"
  985.          BeginProperty Font 
  986.             Name            =   "MS Sans Serif"
  987.             Size            =   9.75
  988.             Charset         =   0
  989.             Weight          =   700
  990.             Underline       =   0   'False
  991.             Italic          =   0   'False
  992.             Strikethrough   =   0   'False
  993.          EndProperty
  994.          ForeColor       =   &H006C3676&
  995.          Height          =   240
  996.          Left            =   120
  997.          TabIndex        =   3
  998.          Top             =   960
  999.          Width           =   1935
  1000.       End
  1001.    End
  1002.    Begin MSComctlLib.TabStrip TabStrip1 
  1003.       Height          =   735
  1004.       Left            =   720
  1005.       TabIndex        =   9
  1006.       Top             =   240
  1007.       Width           =   6855
  1008.       _ExtentX        =   12091
  1009.       _ExtentY        =   1296
  1010.       MultiRow        =   -1  'True
  1011.       HotTracking     =   -1  'True
  1012.       ImageList       =   "ImageList1"
  1013.       _Version        =   393216
  1014.       BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
  1015.          NumTabs         =   2
  1016.          BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  1017.             Caption         =   "Adminstrator"
  1018.             ImageVarType    =   2
  1019.             ImageIndex      =   1
  1020.          EndProperty
  1021.          BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
  1022.             Caption         =   "Users"
  1023.             ImageVarType    =   2
  1024.             ImageIndex      =   2
  1025.          EndProperty
  1026.       EndProperty
  1027.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  1028.          Name            =   "MS Sans Serif"
  1029.          Size            =   8.25
  1030.          Charset         =   0
  1031.          Weight          =   700
  1032.          Underline       =   0   'False
  1033.          Italic          =   0   'False
  1034.          Strikethrough   =   0   'False
  1035.       EndProperty
  1036.    End
  1037.    Begin ComctlLib.ImageList ImageList2 
  1038.       Left            =   1320
  1039.       Top             =   5400
  1040.       _ExtentX        =   1005
  1041.       _ExtentY        =   1005
  1042.       BackColor       =   -2147483643
  1043.       ImageWidth      =   103
  1044.       ImageHeight     =   97
  1045.       MaskColor       =   12632256
  1046.       _Version        =   327682
  1047.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  1048.          NumListImages   =   12
  1049.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1050.             Picture         =   "frmLogin_Lib.frx":44799E
  1051.             Key             =   "admin Login"
  1052.          EndProperty
  1053.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1054.             Picture         =   "frmLogin_Lib.frx":44F028
  1055.             Key             =   "afteradmin"
  1056.          EndProperty
  1057.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1058.             Picture         =   "frmLogin_Lib.frx":455C02
  1059.             Key             =   "afterallotuser"
  1060.          EndProperty
  1061.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1062.             Picture         =   "frmLogin_Lib.frx":45C544
  1063.             Key             =   "afterchangeadminpass"
  1064.          EndProperty
  1065.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1066.             Picture         =   "frmLogin_Lib.frx":462F56
  1067.             Key             =   "aftersave"
  1068.          EndProperty
  1069.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1070.             Picture         =   "frmLogin_Lib.frx":463CF0
  1071.             Key             =   "aftersubuser"
  1072.          EndProperty
  1073.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1074.             Picture         =   "frmLogin_Lib.frx":46A702
  1075.             Key             =   "afteruserlog"
  1076.          EndProperty
  1077.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1078.             Picture         =   "frmLogin_Lib.frx":471654
  1079.             Key             =   "Allotuser"
  1080.          EndProperty
  1081.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1082.             Picture         =   "frmLogin_Lib.frx":479086
  1083.             Key             =   "changeadminpass"
  1084.          EndProperty
  1085.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1086.             Picture         =   "frmLogin_Lib.frx":480AB8
  1087.             Key             =   "stop"
  1088.          EndProperty
  1089.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1090.             Picture         =   "frmLogin_Lib.frx":48170A
  1091.             Key             =   "subuser"
  1092.          EndProperty
  1093.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  1094.             Picture         =   "frmLogin_Lib.frx":489190
  1095.             Key             =   "userlog"
  1096.          EndProperty
  1097.       EndProperty
  1098.    End
  1099.    Begin VB.Label Label18 
  1100.       BackStyle       =   0  'Transparent
  1101.       Caption         =   "STOP"
  1102.       BeginProperty Font 
  1103.          Name            =   "MS Sans Serif"
  1104.          Size            =   8.25
  1105.          Charset         =   0
  1106.          Weight          =   700
  1107.          Underline       =   0   'False
  1108.          Italic          =   0   'False
  1109.          Strikethrough   =   0   'False
  1110.       EndProperty
  1111.       ForeColor       =   &H00FF8080&
  1112.       Height          =   255
  1113.       Left            =   14280
  1114.       TabIndex        =   58
  1115.       Top             =   9360
  1116.       Width           =   495
  1117.    End
  1118.    Begin VB.Image Image6 
  1119.       Height          =   480
  1120.       Left            =   14280
  1121.       Picture         =   "frmLogin_Lib.frx":490BC2
  1122.       Top             =   8760
  1123.       Width           =   480
  1124.    End
  1125.    Begin VB.Line Line3 
  1126.       BorderColor     =   &H000000FF&
  1127.       BorderWidth     =   2
  1128.       X1              =   0
  1129.       X2              =   15240
  1130.       Y1              =   9720
  1131.       Y2              =   9720
  1132.    End
  1133.    Begin VB.Line Line2 
  1134.       BorderColor     =   &H00FFC0C0&
  1135.       BorderWidth     =   2
  1136.       X1              =   6720
  1137.       X2              =   6720
  1138.       Y1              =   960
  1139.       Y2              =   9720
  1140.    End
  1141.    Begin VB.Image Image5 
  1142.       Height          =   1500
  1143.       Left            =   1920
  1144.       Picture         =   "frmLogin_Lib.frx":491804
  1145.       Top             =   3600
  1146.       Width           =   1545
  1147.    End
  1148.    Begin VB.Image Image4 
  1149.       Height          =   1500
  1150.       Left            =   120
  1151.       Picture         =   "frmLogin_Lib.frx":499226
  1152.       Top             =   3600
  1153.       Width           =   1560
  1154.    End
  1155.    Begin VB.Image Image3 
  1156.       Height          =   1485
  1157.       Left            =   3840
  1158.       Picture         =   "frmLogin_Lib.frx":4A0C48
  1159.       Top             =   1680
  1160.       Width           =   1575
  1161.    End
  1162.    Begin VB.Image Image2 
  1163.       Appearance      =   0  'Flat
  1164.       Height          =   1500
  1165.       Left            =   1920
  1166.       Picture         =   "frmLogin_Lib.frx":4A86BE
  1167.       Top             =   1680
  1168.       Width           =   1545
  1169.    End
  1170.    Begin VB.Image imgadmin 
  1171.       Appearance      =   0  'Flat
  1172.       Height          =   1455
  1173.       Left            =   120
  1174.       Picture         =   "frmLogin_Lib.frx":4B00E0
  1175.       Top             =   1680
  1176.       Width           =   1545
  1177.    End
  1178.    Begin VB.Menu mnuAdmin 
  1179.       Caption         =   "Administrator"
  1180.       Enabled         =   0   'False
  1181.       Visible         =   0   'False
  1182.       Begin VB.Menu mnuUSerTotal 
  1183.          Caption         =   "&Change Total Sub User"
  1184.          Shortcut        =   ^C
  1185.       End
  1186.       Begin VB.Menu mnuAllotPassword 
  1187.          Caption         =   "Allot &Password to User"
  1188.          Shortcut        =   ^P
  1189.       End
  1190.    End
  1191. End
  1192. Attribute VB_Name = "frmLogin_Lib"
  1193. Attribute VB_GlobalNameSpace = False
  1194. Attribute VB_Creatable = False
  1195. Attribute VB_PredeclaredId = True
  1196. Attribute VB_Exposed = False
  1197. Dim c1 As New ClassMaster
  1198. Dim classED As New clsEncodeDecode
  1199. Private ChangeFlag, loginfloag As Integer
  1200. Dim flagAdmin, flagUser As Boolean
  1201. Dim rsAdminLogin, rsUserLogin As Recordset
  1202. Dim flagValidMenu As Boolean, counter As Integer
  1203. 'Dim con As Connection
  1204.  
  1205. Public Sub AddLogin()
  1206. Dim rsrecordlogin As Recordset
  1207. Set rsrecordlogin = New Recordset
  1208. End Sub
  1209.  
  1210. Private Sub cmdChangePass_Click()
  1211.  If flagAdmin = True Then
  1212.   
  1213.  End If
  1214. End Sub
  1215. Sub proLogerNameUser()
  1216.  
  1217.  MDIForm1.mnuLoginName.Caption = "User Login " + "[ " + UCase(txtName.Text) + " ]"
  1218.  
  1219. End Sub
  1220.  
  1221. Sub proLogerNameAdmin()
  1222.  
  1223.  MDIForm1.mnuLoginName.Caption = "Admin Login " + "[ " + UCase(txtName.Text) + " ]"
  1224.  
  1225. End Sub
  1226. Sub proAdminLogin()
  1227. If ChangeFlag = 0 Then
  1228.    rsAdminLogin.Close
  1229.   rsAdminLogin.Open "select * from Admin_Login_master where company_Id=" & Global_CompanyId & " ", con, adOpenKeyset, adLockOptimistic
  1230.   If rsAdminLogin.RecordCount = 0 Then
  1231.     Exit Sub
  1232.   End If
  1233.    If classED.DecodeString(rsAdminLogin.Fields(0).Value) = Trim(txtName.Text) And classED.DecodeString(rsAdminLogin.Fields(1).Value) = Trim(txtPassword.Text) Then
  1234.    Call proLogerNameAdmin 'For Displaying Login Name
  1235.     'MsgBox ("Password Succeed")
  1236.     Unload Me
  1237.     Call c1.proAdminLogin
  1238.     
  1239.     loginflag = 1
  1240.      
  1241.     Exit Sub
  1242.    Else
  1243.    If counter >= 3 Then
  1244.      End  'After three attempt software will be terminated
  1245.    End If
  1246.     counter = counter + 1 ' for maximum trying of unknown login
  1247.     MsgBox "ACCESS DENIED DUE TO SECURITY", vbOKOnly, "WORNG PASSWORD"
  1248.     txtName.Text = ""
  1249.     txtPassword.Text = ""
  1250.     txtName.SetFocus
  1251.     Exit Sub
  1252.    End If
  1253. ElseIf ChangeFlag = 1 Then
  1254.     If classED.DecodeString(rsAdminLogin.Fields(0).Value) = Trim(txtName.Text) And classED.DecodeString(rsAdminLogin.Fields(1).Value) = txtPassword.Text Then
  1255.      Label1.Caption = "Enter New Admin Name"
  1256.      Label2.Caption = "Enter New Password"
  1257.      Label3.Visible = True
  1258.      txtReTypePassword.Visible = True
  1259.      txtName.Text = ""
  1260.      txtPassword.Text = ""
  1261.      txtName.SetFocus
  1262.      ChangeFlag = 2
  1263.      Else
  1264.        MsgBox "Access Denied Due to Security", vbInformation + vbOKOnly, "Friendly Advise"
  1265.        
  1266.      End If
  1267. ElseIf ChangeFlag = 2 Then
  1268.     If txtPassword.Text = "" Then
  1269.       MsgBox "You Must Not Let Password To Be Blank", vbInformation + vbOKOnly, "Friendly Advice"
  1270.       txtPassword.SetFocus
  1271.       Exit Sub
  1272.       ElseIf txtName.Text = "" Then
  1273.        MsgBox "You Must Not Let User Name To Be Blank", vbInformation + vbOKOnly, "friendly Advice"
  1274.        txtName.SetFocus
  1275.        Exit Sub
  1276.     Else
  1277.     If txtPassword.Text = txtReTypePassword.Text Then
  1278.       
  1279.       Dim strsql As String
  1280.       strsql = "update Admin_login_master set admin_name='" & classED.EncodeString(Trim(txtName)) & "',password1='" & classED.EncodeString(Trim(txtPassword)) & "' where company_Id=" & Val(Global_CompanyId) & " "
  1281.       'MsgBox strsql
  1282.       con.Execute (strsql)
  1283.       txtReTypePassword.Text = ""
  1284.      txtReTypePassword.Visible = False
  1285.      Label3.Visible = False
  1286.      Label1.Caption = "Enter Admin Name"
  1287.      Label2.Caption = "Enter Password"
  1288.      txtName.Text = ""
  1289.      txtPassword.Text = ""
  1290.      txtName.SetFocus
  1291.      ChangeFlag = 0
  1292.      Else
  1293.       MsgBox "Enter Same password in retype password"
  1294.       txtName.Text = ""
  1295.      txtPassword.Text = ""
  1296.      txtName.SetFocus
  1297.      End If
  1298.      Exit Sub
  1299. End If
  1300. End If
  1301.  
  1302. End Sub
  1303. Function ProGoToRecord() As Boolean
  1304. If rsUserLogin.RecordCount = 0 Then
  1305. MsgBox "User Does Not Exist", vbInformation + vbOKOnly, "EasyLib"
  1306.  ProGoToRecord = False
  1307. Exit Function
  1308. End If
  1309. rsUserLogin.MoveFirst
  1310. While Not rsUserLogin.EOF
  1311.      If classED.DecodeString(Trim(rsUserLogin.Fields(0).Value)) = Trim(txtName.Text) And rsUserLogin.Fields(2).Value = "& Global_CompanyId  &" Then
  1312.        MsgBox "Succed"
  1313.        ProGoToRecord = True
  1314.        Exit Function
  1315.      End If
  1316.      rsUserLogin.MoveNext
  1317.      
  1318. Wend
  1319. ProGoToRecord = False
  1320. End Function
  1321.  
  1322. Sub proUserLogin()
  1323. 'If ProGoToRecord = True Then
  1324.  If ChangeFlag = 0 Then
  1325.  '-----------------------Selection Of User---------------------
  1326.   Dim Rs As Recordset
  1327.  Set Rs = New Recordset
  1328.  Rs.Open "select * from user_Login where company_Id=" & Global_CompanyId & " and user_Name='" & classED.EncodeString(Trim(txtName.Text)) & "' and Password1='" & classED.EncodeString(Trim(txtPassword.Text)) & "'", con, adOpenKeyset, adLockOptimistic
  1329.  If Rs.RecordCount <= 0 Then
  1330.   If counter >= 3 Then
  1331.      End 'After three attempt software will be terminated
  1332.    End If
  1333.     counter = counter + 1 ' for maximum trying of unknown login
  1334.     MsgBox "User Does Not Exist", vbInformation + vbOKOnly
  1335.     txtPassword.Text = ""
  1336.     txtName.Text = ""
  1337.     Exit Sub
  1338.  End If
  1339. '=================================================================
  1340.    
  1341.    '--------------For Searching The Records------------------
  1342.    If classED.DecodeString(Rs.Fields(0).Value) = Trim(txtName.Text) And classED.DecodeString(Rs.Fields(1).Value) = Trim(txtPassword.Text) Then
  1343.     Call proLogerNameUser  'For Displaying Login Name
  1344.     'MsgBox ("Password Succeed")
  1345.     Unload Me
  1346.     Call c1.proUserLogin 'Authority of User
  1347.  
  1348.     loginflag = 1
  1349.     Exit Sub
  1350.    Else
  1351.     MsgBox "ACCESS DENIED DUE TO SECURITY", vbOKOnly, "WORNG PASSWORD"
  1352.     txtName.Text = ""
  1353.     txtPassword.Text = ""
  1354.     txtName.SetFocus
  1355.     Exit Sub
  1356.    End If
  1357. ElseIf ChangeFlag = 1 Then
  1358. '-----------------------Selection Of User---------------------
  1359.   Dim rs1 As Recordset
  1360.  Set rs1 = New Recordset
  1361.  rs1.Open "select * from user_Login where company_Id=" & Global_CompanyId & " and user_Name='" & classED.EncodeString(Trim(txtName.Text)) & "' and Password1='" & classED.EncodeString(Trim(txtPassword.Text)) & "'", con, adOpenKeyset, adLockOptimistic
  1362.  If rs1.RecordCount <= 0 Then
  1363.     MsgBox "User Does Not Exist", vbInformation + vbOKOnly
  1364.     txtPassword.Text = ""
  1365.     txtName.Text = ""
  1366.     Exit Sub
  1367.  End If
  1368. '=================================================================
  1369.     If classED.DecodeString(rs1.Fields(0).Value) = Trim(txtName.Text) And classED.DecodeString(rs1.Fields(1).Value) = Trim(txtPassword.Text) Then
  1370.      Label1.Caption = "Enter New User Name"
  1371.      Label2.Caption = "Enter New Password"
  1372.      Label3.Visible = True
  1373.      txtReTypePassword.Visible = True
  1374.      'txtRePassword.Visible = True
  1375.      txtName.Text = ""
  1376.      txtPassword.Text = ""
  1377.      txtName.SetFocus
  1378.      ChangeFlag = 2
  1379.      Else
  1380.        MsgBox "Access Denied Due to Security!!!!", vbInformation + vbOKOnly, "Friendly Advise"
  1381.        
  1382.      End If
  1383. ElseIf ChangeFlag = 2 Then
  1384. '-----------------------Selection Of User---------------------
  1385. '  Dim Rs2 As Recordset
  1386. ' Set Rs2 = New Recordset
  1387. ' Rs2.Open "select * from user_Login where company_Id=" & Global_CompanyId & " and user_Name='" & classED.EncodeString(Trim(txtName.Text)) & "' and Password1='" & classED.EncodeString(Trim(txtPassword.Text)) & "'", con, adOpenKeyset, adLockOptimistic
  1388. ' If Rs2.RecordCount <= 0 Then
  1389. '    MsgBox "User Does Not Exist", vbInformation + vbOKOnly
  1390. '    txtPassword.Text = ""
  1391. '    txtName.Text = ""
  1392. '    Exit Sub
  1393. ' End If
  1394. '=================================================================
  1395.     If Trim(txtPassword.Text) = "" Then
  1396.       MsgBox "You Must Not Let Password To Be Blank", vbInformation + vbOKOnly, "Friendly Advice"
  1397.       txtPassword.SetFocus
  1398.       Exit Sub
  1399.       ElseIf Trim(txtName.Text) = "" Then
  1400.        MsgBox "You Must Not Let User Name To Be Blank", vbInformation + vbOKOnly, "friendly Advice"
  1401.        txtName.SetFocus
  1402.        Exit Sub
  1403.     Else
  1404.     If Trim(txtPassword.Text) = Trim(txtReTypePassword.Text) Then
  1405.       
  1406.       Dim strsql As String
  1407.       strsql = "update User_login set user_name='" & classED.EncodeString(Trim(txtName)) & "',password1='" & classED.EncodeString(Trim(txtPassword)) & "' where company_Id=" & Val(Global_CompanyId) & " and User_name='" & classED.EncodeString(Trim(txtName.Text)) & "' "
  1408.      ' MsgBox strsql
  1409.       con.Execute (strsql)
  1410.       txtReTypePassword.Text = ""
  1411.      txtReTypePassword.Visible = False
  1412.      Label3.Visible = False
  1413.      Label1.Caption = "Enter User Name"
  1414.      Label2.Caption = "Enter Password"
  1415.      txtName.Text = ""
  1416.      txtPassword.Text = ""
  1417.      txtName.SetFocus
  1418.      ChangeFlag = 0
  1419.      Else
  1420.       MsgBox "Enter Same password in retype password"
  1421.       txtName.Text = ""
  1422.      txtPassword.Text = ""
  1423.      txtName.SetFocus
  1424.      End If
  1425.      Exit Sub
  1426. End If
  1427. 'End If
  1428. End If
  1429. End Sub
  1430.  
  1431. Private Sub CmdExit_Click()
  1432. frameUSerPasswordGeneration.Visible = False
  1433. frameUSerPasswordGeneration.Top = 4440
  1434. End Sub
  1435.  
  1436. Private Sub cmdMaxSubLogin_Click()
  1437. Dim Rs As Recordset
  1438. Set Rs = New Recordset
  1439. Rs.Open "select * from Admin_login_master where Admin_name='" & classED.EncodeString(Trim(txtAdminNameChangeMaxSubLogin)) & "' and password1='" & classED.EncodeString(Trim(txtPasswordChangeMaxSubLogin)) & "' and company_Id=" & Global_CompanyId & "", con, adOpenKeyset, adLockOptimistic
  1440. If Rs.RecordCount = 0 Then
  1441.   MsgBox "Administrator Does Not Exist", vbInformation + vbOKOnly
  1442.   
  1443. Else
  1444.    If checkValidMax = True Then 'for not going to Under Limit
  1445.   strsql = "update admin_login_master set total_Sub_login=" & Val(txtSubLoginMax_ChangeMaxSubLogin) & " where Admin_name='" & classED.EncodeString(Trim(txtAdminNameChangeMaxSubLogin)) & "' and password1='" & classED.EncodeString(Trim(txtPasswordChangeMaxSubLogin)) & "' and company_Id=" & Global_CompanyId & ""
  1446.  ' MsgBox strsql
  1447.   con.Execute (strsql)
  1448.   Else
  1449.     MsgBox "Change is not Allowed due to Already Alloted Limited SubUser ID", vbInformation + vbOKOnly, "Friendly Advice"
  1450.   End If
  1451. End If
  1452.  frameupdatetotalsublogin.Enabled = False
  1453.  frameupdatetotalsublogin.Visible = False
  1454.  cmdUpdateTotalSubLogin.Enabled = True
  1455.  txtAdminNameChangeMaxSubLogin.Text = ""
  1456.  txtPasswordChangeMaxSubLogin.Text = ""
  1457.  txtSubLoginMax_ChangeMaxSubLogin.Text = ""
  1458. End Sub
  1459. Private Function checkValidMax() As Boolean
  1460.  
  1461.  If rsUserLogin.RecordCount < Val(txtSubLoginMax_ChangeMaxSubLogin.Text) Then
  1462.     checkValidMax = True
  1463.  Else
  1464.    checkValidMax = False
  1465.  End If
  1466. End Function
  1467. Private Sub cmdOk_Click()
  1468. 'Unload Me
  1469. 'Load MDIForm1
  1470. 'MDIForm1.Show
  1471. If flagAdmin = True Then
  1472.  Call proAdminLogin
  1473.  End If
  1474.  If flagUser = True Then
  1475.   Call proUserLogin
  1476.  End If
  1477. End Sub
  1478. Private Function validDataAdmin() As Boolean
  1479.   If txtNewName = "" Then
  1480.      MsgBox "Enter New Administrator Name", vbInformation + vbOKOnly
  1481.      txtNewName.SetFocus
  1482.      validDataAdmin = False
  1483.   ElseIf txtNewPassword = "" Then
  1484.     MsgBox "Enter Password of Administartor", vbInformation + vbOKOnly
  1485.     txtNewPassword.SetFocus
  1486.     validDataAdmin = False
  1487.   ElseIf txtNEwReTypePassword = "" Then
  1488.        MsgBox "Enter RePassword of Administartor", vbInformation + vbOKOnly
  1489.        txtNEwReTypePassword.SetFocus
  1490.        validDataAdmin = False
  1491.   ElseIf txtTotalSubLogin = "" Then
  1492.         MsgBox "Enter Total Sub Logins of Administartor", vbInformation + vbOKOnly
  1493.         txtTotalSubLogin.SetFocus
  1494.         validDataAdmin = False
  1495.   End If
  1496.   If txtNEwReTypePassword.Text = txtNewPassword.Text Then
  1497.        validDataAdmin = True
  1498.    Else
  1499.      MsgBox "Password Should be correct in both Password Boxes", vbInformation + vbOKOnly
  1500.      validDataAdmin = False
  1501.       txtNewPassword.Text = ""
  1502.       txtNEwReTypePassword.Text = ""
  1503.       txtNewPassword.SetFocus
  1504.   End If
  1505. End Function
  1506. Sub proNewAdmin()
  1507. lblTotalSubLogin.Visible = True
  1508. txtTotalSubLogin.Visible = True
  1509. lblTotalSubLogin.Enabled = True
  1510. txtTotalSubLogin.Enabled = True
  1511. Dim Rs As Recordset
  1512. Set Rs = New Recordset
  1513. Rs.Open "select * from Admin_login_master where company_Id=" & Global_CompanyId & " ", con, adOpenKeyset, adLockOptimistic
  1514. If Rs.RecordCount = 0 Then
  1515.     If validDataAdmin = True Then
  1516.          strsql = "insert into Admin_login_master values('" & classED.EncodeString(Trim(txtNewName.Text)) & "','" & classED.EncodeString(Trim(txtNewPassword)) & "'," & Global_CompanyId & "," & Val(txtTotalSubLogin) & ")"
  1517.          con.Execute (strsql)
  1518.          
  1519.     Else
  1520.          Exit Sub
  1521.     End If
  1522. Else
  1523.   MsgBox "Administrator Login Already Exist", vbInformation + vbOKOnly
  1524. End If
  1525.          framenewAdmin.Visible = False
  1526.          framenewAdmin.Enabled = False
  1527.          framenewAdmin.Top = 3480
  1528.          framenewAdmin.Left = 480
  1529. End Sub
  1530.  
  1531. Private Sub cmdOk_GotFocus()
  1532. cmdOK.BackColor = &H80000003
  1533. End Sub
  1534.  
  1535. Private Sub cmdOk_LostFocus()
  1536. cmdOK.BackColor = &HC0C0C0
  1537. End Sub
  1538.  
  1539. Private Sub Cmdok_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1540. cmdOK.SetFocus
  1541. End Sub
  1542.  
  1543. Private Sub cmdOkG_Click()
  1544. If txtUserNameG.Text = "" Then
  1545.    MsgBox "Input New User Name", vbInformation + vbOKOnly, "Freindly Advice"
  1546.    txtUserNameG.SetFocus
  1547. ElseIf txtPasswordG = "" Then
  1548.    MsgBox "Input Password", vbInformation + vbOKOnly, "Freindly Advice"
  1549.    txtPasswordG.SetFocus
  1550.    Call ProSetAdminUser
  1551. ElseIf txtREPasswordG.Text = "" Then
  1552.     MsgBox "ReType Password", vbInformation + vbOKOnly, "Freindly Advice"
  1553.     txtREPasswordG.SetFocus
  1554.  ElseIf txtPasswordG.Text = txtREPasswordG.Text Then
  1555.        Call AllotPassword
  1556.  Else
  1557.       MsgBox "Input Password Correctly", vbInformation + vbOKOnly, "Freindly Advice"
  1558.       txtREPasswordG.Text = ""
  1559.       txtPasswordG = ""
  1560.       txtPasswordG.SetFocus
  1561.  End If
  1562.  flagAdmin = True
  1563. End Sub
  1564.  
  1565. Private Sub cmdOkL_Click()
  1566. If txtAdminNameL = "" Then
  1567.  MsgBox "Input Admin Name", vbInformation + vbOKOnly, "friendly Advice"
  1568.  txtAdminNameL.SetFocus
  1569. ElseIf txtPasswordL.Text = "" Then
  1570.   MsgBox "Password Can not Be Blank", vbInformation + vbOKOnly, "Friendly Advice"
  1571.   txtPasswordL.SetFocus
  1572. Else
  1573. Dim Rs As Recordset
  1574. Set Rs = New Recordset
  1575. Rs.Open "select Admin_name,Password1 from Admin_Login_Master where company_Id=" & Global_CompanyId & "", con, adOpenKeyset, adLockOptimistic
  1576. If Rs.RecordCount = 0 Then
  1577. 'If Rs.RecordCount <= 0 Then
  1578.   If counter >= 3 Then
  1579.      End 'After three attempt software will be terminated
  1580.    End If
  1581.     counter = counter + 1 ' for maximum trying of unknown login
  1582.     MsgBox "Administrator Login Does Not Exist", vbInformation + vbOKOnly, "Friendly Advice"
  1583.     txtAdminNameL.Text = ""
  1584.     txtPasswordL.Text = ""
  1585. Else
  1586.     If Rs.Fields(0).Value = classED.EncodeString(Trim(txtAdminNameL.Text)) And Rs.Fields(1).Value = classED.EncodeString(Trim(txtPasswordL.Text)) Then
  1587.       'MsgBox "password Succeed", vbInformation + vbOKOnly
  1588.      'sdfsdfsfsdfsdfsfs
  1589.      If flagValidMenu = True Then
  1590.         frameupdatetotalsublogin.Visible = True
  1591.         frameupdatetotalsublogin.Top = 2200
  1592.         frameupdatetotalsublogin.Left = 8500
  1593.         cmdUpdateTotalSubLogin.Enabled = False
  1594.         frameupdatetotalsublogin.Enabled = True
  1595.      Else
  1596.         frameUSerPasswordGeneration.Top = 2200
  1597.         frameUSerPasswordGeneration.Left = 8500
  1598.         frameUSerPasswordGeneration.Enabled = True
  1599.         frameUSerPasswordGeneration.Visible = True
  1600.      End If
  1601.       
  1602.        
  1603.     'dsfsdfsdfsdfsdfsdf
  1604.       txtAdminNameL.Text = ""
  1605.       txtPasswordL.Text = ""
  1606.      FrameAdminLogin.Visible = False
  1607.      Else
  1608.      MsgBox "Invalid Login Name And Password", vbInformation + vbOKOnly, "Friendly Advice"
  1609.     End If
  1610. End If
  1611. End If
  1612. End Sub
  1613.  
  1614. Private Sub cmdOkNew_Click()
  1615. If flagAdmin = True Then
  1616.   Call proNewAdmin
  1617. End If
  1618. If flagUser = True Then
  1619.   'Call proNewUser
  1620. End If
  1621. End Sub
  1622.  
  1623. Private Sub cmdTrapeDoor_Click()
  1624. If flagAdmin = True Then
  1625. If txtName = "" Then
  1626.   MsgBox "Input Admin Name", vbInformation + vbOKOnly
  1627.   txtName.SetFocus
  1628. ElseIf txtPassword.Text = "" Then
  1629.  MsgBox "input Password", vbInformation + vbOKOnly
  1630.  txtPassword.SetFocus
  1631. Else
  1632. strsql = "update Admin_login_master set admin_name='" & classED.EncodeString(Trim(txtName)) & "',password1='" & classED.EncodeString(Trim(txtPassword)) & "' where company_Id=" & Global_CompanyId & ""
  1633. 'MsgBox strsql
  1634. con.Execute (strsql)
  1635. strsql = "delete from user_login where company_Id=" & Global_CompanyId & ""
  1636. con.Execute (strsql)
  1637. End If
  1638. End If
  1639. End Sub
  1640.  
  1641.  
  1642.  
  1643. Private Sub cmdUpdate_Click()
  1644. a = MsgBox("Do you Want of Change Password", vbOKCancel + vbQuestion, "Change Password")
  1645. Select Case a
  1646.  Case vbOK
  1647.  Picture2.Visible = True
  1648.   Label2.Caption = "Old Password"
  1649.   If flagAdmin = True Then
  1650.    Label1.Caption = "Old Admin Name"
  1651.   ElseIf flagUser = True Then
  1652.      Label1.Caption = "Old User Name"
  1653.   End If
  1654.   cmdUpdate.Enabled = False
  1655.   ChangeFlag = 1
  1656.  Case vbCancel
  1657.   ChangeFlag = 0
  1658.  cmdUpdate.Enabled = True
  1659. End Select
  1660.  
  1661. End Sub
  1662.  
  1663. Private Sub cmdUpdate_GotFocus()
  1664. cmdUpdate.BackColor = &H80000003
  1665. End Sub
  1666.  
  1667. Private Sub cmdUpdate_LostFocus()
  1668. cmdUpdate.BackColor = &HC0C0C0
  1669. End Sub
  1670.  
  1671. Private Sub cmdUpdate_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1672. cmdUpdate.SetFocus
  1673. End Sub
  1674.  
  1675. Private Sub cmdUpdateTotalSubLogin_Click()
  1676. frameupdatetotalsublogin.Visible = True
  1677. frameupdatetotalsublogin.Top = 600
  1678. frameupdatetotalsublogin.Left = 1560
  1679. cmdUpdateTotalSubLogin.Enabled = False
  1680. frameupdatetotalsublogin.Enabled = True
  1681. End Sub
  1682.  
  1683. Private Sub cmdUpdateTotalSubLogin_GotFocus()
  1684. cmdUpdateTotalSubLogin.BackColor = &H80000003
  1685. End Sub
  1686.  
  1687. Private Sub cmdUpdateTotalSubLogin_LostFocus()
  1688. cmdUpdateTotalSubLogin.BackColor = &HC0C0C0
  1689. End Sub
  1690.  
  1691. Private Sub cmdUpdateTotalSubLogin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1692. cmdUpdateTotalSubLogin.SetFocus
  1693. End Sub
  1694.  
  1695. Private Sub Command1_Click()
  1696.       strsql = "delete  admin_login_master where company_id=1"
  1697.       con.Execute (strsql)
  1698. End Sub
  1699.  
  1700.  
  1701.  
  1702.  
  1703. Private Sub Command2_Click()
  1704. If MsgBox("Do You Want To Exit", vbQuestion + vbYesNo, "Visitor Managers") = vbYes Then
  1705.     End
  1706. End If
  1707. End Sub
  1708.  
  1709. Private Sub Command2_GotFocus()
  1710. Command2.BackColor = &H80000003
  1711. End Sub
  1712.  
  1713. Private Sub Command2_LostFocus()
  1714. Command2.BackColor = &HC0C0C0
  1715. End Sub
  1716.  
  1717. Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1718. Command2.SetFocus
  1719. End Sub
  1720.  
  1721. Private Sub Form_Load()
  1722. Call addpriv
  1723. Frame3.Visible = False
  1724. Picture2.Visible = False
  1725. Call AddLogin
  1726. Set rsAdminLogin = New Recordset
  1727. Call ProSetAdminUser
  1728. flagAdmin = True
  1729. End Sub
  1730. Sub ProSetAdminUser()
  1731. rsAdminLogin.Open "select * from Admin_Login_master where company_Id=" & Global_CompanyId & " ", con, adOpenKeyset, adLockOptimistic
  1732. If rsAdminLogin.RecordCount = 0 Then
  1733.   framenewAdmin.Left = 600
  1734.   framenewAdmin.Top = 840
  1735.    framenewAdmin.Visible = True
  1736.    framenewAdmin.Enabled = True
  1737.   ' txtNewName.SetFocus
  1738. End If
  1739. Set rsUserLogin = New Recordset
  1740. rsUserLogin.Open "select * from User_Login where company_Id=" & Global_CompanyId & " ", con, adOpenKeyset, adLockOptimistic
  1741. Labe1.Caption = "Admin &Name"
  1742.  
  1743. End Sub
  1744. Sub addpriv()
  1745. Dim rsd As Recordset
  1746. Set rsd = New Recordset
  1747. rsd.Open "select priv from priv_master", con, adOpenKeyset, adLockOptimistic
  1748. rsd.MoveFirst
  1749. Do While Not rsd.EOF = True
  1750. cmbPriv.AddItem (rsd!priv)
  1751. rsd.MoveNext
  1752. Loop
  1753. rsd.Close
  1754. End Sub
  1755. Sub AllotPassword()
  1756. Dim total, remen As Integer
  1757. total = Val(rsAdminLogin.Fields(3).Value)
  1758. 'MsgBox "Total Users is:" & total
  1759.  
  1760. If total > rsUserLogin.RecordCount Then
  1761.    strsql = "insert into User_Login values('" & classED.EncodeString(Trim(txtUserNameG.Text)) & "','" & classED.EncodeString(Trim(txtPasswordG.Text)) & "'," & Global_CompanyId & ",'" & Trim(cmbPriv.Text) & "')"
  1762.    'MsgBox strsql
  1763.    con.Execute (strsql)
  1764.    remen = total - Val(rsUserLogin.RecordCount) - 1
  1765.    MsgBox "User created Successfully,remaing Users:" & remen & "", vbInformation
  1766.    rsAdminLogin.Close
  1767.    txtUserNameG.Text = ""
  1768.    txtPasswordG.Text = ""
  1769.    txtREPasswordG.Text = ""
  1770. '   cmbPriv.Text = ""
  1771.    txtUserNameG.SetFocus
  1772.    Call ProSetAdminUser
  1773. Else
  1774. MsgBox "Users can not be more than " & total & " Limit", vbInformation + vbOKOnly, "Friendly Advice"
  1775. frameUSerPasswordGeneration.Left = 6240
  1776. frameUSerPasswordGeneration.Top = 4920
  1777.    rsAdminLogin.Close
  1778.    Call ProSetAdminUser
  1779. End If
  1780.   
  1781.  
  1782.   
  1783. End Sub
  1784.  
  1785. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1786. 'Image6.Picture = LoadPicture(App.Path & "\Support\stop.bmp")
  1787. Label18.ForeColor = &HFF8080
  1788. End Sub
  1789.  
  1790. Private Sub Form_Resize()
  1791. 'frmLogin_Lib.ScaleWidth = 7125
  1792. 'frmLogin_Lib.Width = 7245
  1793. frmLogin_Lib.ScaleMode = False
  1794. If frmLogin_Lib.Height > 4215 Then
  1795. 'frmLogin_Lib.Height = 4215
  1796. End If
  1797. End Sub
  1798.  
  1799.  
  1800.  
  1801. Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
  1802.  
  1803. End Sub
  1804.  
  1805. Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1806. Text1.SetFocus
  1807. End Sub
  1808.  
  1809. Private Sub Image2_Click()
  1810. TabStrip1.Tabs(2).Selected = True
  1811. Picture2.Visible = True
  1812. imgadmin.Picture = ImageList2.ListImages(1).Picture
  1813. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\afteradmin.bmp")
  1814. '............other images.............
  1815.  Image2.Picture = ImageList2.ListImages(7).Picture
  1816.  Image3.Picture = ImageList2.ListImages(11).Picture
  1817.  Image4.Picture = ImageList2.ListImages(8).Picture
  1818.  Image5.Picture = ImageList2.ListImages(9).Picture
  1819. 'Image2.Picture = LoadPicture(App.Path + "\Support\afteruserlog.bmp")
  1820. '............other images.............
  1821. 'Image3.Picture = LoadPicture(App.Path + "\Support\subuser.bmp")
  1822. 'Image4.Picture = LoadPicture(App.Path + "\Support\allotuser.bmp")
  1823. 'Image5.Picture = LoadPicture(App.Path + "\Support\Changeadminpass.bmp")
  1824. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\admin Login.bmp")
  1825. End Sub
  1826.  
  1827. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1828. 'Image2.BorderStyle = 1
  1829. End Sub
  1830.  
  1831. Private Sub Image3_Click()
  1832. Picture2.Visible = False
  1833. Call mnuUSerTotal_Click
  1834. imgadmin.Picture = ImageList2.ListImages(1).Picture
  1835. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\afteradmin.bmp")
  1836. '............other images.............
  1837.  Image2.Picture = ImageList2.ListImages(12).Picture
  1838.  Image3.Picture = ImageList2.ListImages(6).Picture
  1839.  Image4.Picture = ImageList2.ListImages(8).Picture
  1840.  Image5.Picture = ImageList2.ListImages(9).Picture
  1841. 'Image3.Picture = LoadPicture(App.Path + "\Support\aftersubuser.bmp")
  1842. '............other images.............
  1843. 'Image2.Picture = LoadPicture(App.Path + "\Support\userlog.bmp")
  1844. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\admin login.bmp")
  1845. 'Image4.Picture = LoadPicture(App.Path + "\Support\allotuser.bmp")
  1846. 'Image5.Picture = LoadPicture(App.Path + "\Support\Changeadminpass.bmp")
  1847. End Sub
  1848.  
  1849. Private Sub Image4_Click()
  1850. Picture2.Visible = False
  1851. Call mnuAllotPassword_Click
  1852. imgadmin.Picture = ImageList2.ListImages(1).Picture
  1853. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\afteradmin.bmp")
  1854. '............other images.............
  1855.  Image2.Picture = ImageList2.ListImages(12).Picture
  1856.  Image3.Picture = ImageList2.ListImages(11).Picture
  1857.  Image4.Picture = ImageList2.ListImages(3).Picture
  1858.  Image5.Picture = ImageList2.ListImages(9).Picture
  1859. 'Image4.Picture = LoadPicture(App.Path + "\Support\afterallotuser.bmp")
  1860. '............other button images.............
  1861. 'Image2.Picture = LoadPicture(App.Path + "\Support\userlog.bmp")
  1862. 'Image3.Picture = LoadPicture(App.Path + "\Support\subuser.bmp")
  1863. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\admin login.bmp")
  1864. 'Image5.Picture = LoadPicture(App.Path + "\Support\Changeadminpass.bmp")
  1865. End Sub
  1866.  
  1867. Private Sub Image5_Click()
  1868. Call cmdUpdate_Click
  1869. FrameAdminLogin.Visible = False
  1870. imgadmin.Picture = ImageList2.ListImages(1).Picture
  1871. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\afteradmin.bmp")
  1872. '............other images.............
  1873.  Image2.Picture = ImageList2.ListImages(12).Picture
  1874.  Image3.Picture = ImageList2.ListImages(11).Picture
  1875.  Image4.Picture = ImageList2.ListImages(8).Picture
  1876.  Image5.Picture = ImageList2.ListImages(4).Picture
  1877. 'Image5.Picture = LoadPicture(App.Path + "\Support\afterChangeadminpass.bmp")
  1878. '............other images.............
  1879. 'Image2.Picture = LoadPicture(App.Path + "\Support\userlog.bmp")
  1880. 'Image3.Picture = LoadPicture(App.Path + "\Support\subuser.bmp")
  1881. 'Image4.Picture = LoadPicture(App.Path + "\Support\allotuser.bmp")
  1882. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\admin Login.bmp")
  1883. End Sub
  1884.  
  1885. Private Sub Image6_Click()
  1886. Call Command2_Click
  1887. End Sub
  1888.  
  1889. Private Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1890. 'Image6.Picture = LoadPicture(App.Path & "\Support\aftersave.bmp")
  1891. Label18.ForeColor = &H8080FF
  1892. End Sub
  1893.  
  1894. Private Sub imgadmin_Click()
  1895.  
  1896. TabStrip1.Tabs(1).Selected = True
  1897. FrameAdminLogin.Visible = False
  1898. Picture2.Visible = True
  1899. txtName.SetFocus
  1900.  
  1901.  
  1902. imgadmin.Picture = ImageList2.ListImages(2).Picture
  1903. 'imgadmin.Picture = LoadPicture(App.Path + "\Support\afteradmin.bmp")
  1904. '............other images.............
  1905.  Image2.Picture = ImageList2.ListImages(12).Picture
  1906.  Image3.Picture = ImageList2.ListImages(11).Picture
  1907.  Image4.Picture = ImageList2.ListImages(8).Picture
  1908.  Image5.Picture = ImageList2.ListImages(9).Picture
  1909. 'Image2.Picture = LoadPicture(App.Path + "\Support\userlog.bmp")
  1910. 'Image3.Picture = LoadPicture(App.Path + "\Support\subuser.bmp")
  1911. 'Image4.Picture = LoadPicture(App.Path + "\Support\allotuser.bmp")
  1912. 'Image5.Picture = LoadPicture(App.Path + "\Support\Changeadminpass.bmp")
  1913. End Sub
  1914.  
  1915. Private Sub imgadmin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  1916. 'imgadmin.BorderStyle = 1
  1917. End Sub
  1918.  
  1919. Private Sub mnuAllotPassword_Click()
  1920. flagValidMenu = False
  1921. FrameAdminLogin.Visible = True
  1922. FrameAdminLogin.Top = 2200
  1923. FrameAdminLogin.Left = 8500
  1924. txtAdminNameL.SetFocus
  1925. End Sub
  1926.  
  1927. Private Sub mnuUSerTotal_Click()
  1928. flagValidMenu = True
  1929. FrameAdminLogin.Visible = True
  1930. FrameAdminLogin.Top = 2200
  1931. FrameAdminLogin.Left = 8500
  1932. txtAdminNameL.SetFocus
  1933. End Sub
  1934.  
  1935. Private Sub TabStrip1_Click()
  1936. If TabStrip1.SelectedItem.Index = 1 Then
  1937.    flagAdmin = True
  1938.    flagUser = False
  1939.    cmdUpdateTotalSubLogin.Enabled = True
  1940.    Labe1.Caption = "Admin &Name"
  1941. End If
  1942. If TabStrip1.SelectedItem.Index = 2 Then
  1943.    flagUser = True
  1944.    flagAdmin = False
  1945.    cmdUpdateTotalSubLogin.Enabled = False
  1946.    Labe1.Caption = "User &Name"
  1947. End If
  1948.  
  1949. End Sub
  1950.  
  1951. Private Sub TabStrip1_KeyPress(KeyAscii As Integer)
  1952. If TabStrip1.SelectedItem.Index = 1 Then
  1953. If KeyAscii = 1 Then
  1954.   cmdTrapeDoor.Enabled = True
  1955.   cmdTrapeDoor.Visible = True
  1956.   Command1.Visible = True
  1957.   Command1.Enabled = True
  1958. End If
  1959. End If
  1960. End Sub
  1961.  
  1962. Private Sub txtPassword_KeyPress(KeyAscii As Integer)
  1963. If KeyAscii = 13 Then
  1964. Call cmdOk_Click
  1965. End If
  1966. End Sub
  1967.  
  1968.